supplied-by
: char-  ( caddr -- caddr')  1 chars - ;
